home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / ISSUE18 / SURVIVE / SETUP.SQL < prev   
Encoding:
Text File  |  1996-11-19  |  1.6 KB  |  45 lines
  1. CREATE TABLE Users(
  2.   UserID                  int,          /* System ID Number */
  3.   Username                char(30),     /* Login user name */
  4.   FirstName               char(20),     /* User's proper first name */
  5.   LastName                char(20),     /* User's proper last name */
  6.   DateLastLogin           datetime,     /* Date and time of last login */
  7.   DateLastPasswordChange  datetime,     /* Date and time of last password change */
  8.   PasswordLifespan        smallint)     /* Number of days between forced password change */
  9. GO
  10. GRANT ALL ON Users TO Public
  11. GO
  12.  
  13. CREATE TABLE AuditTrail(
  14.   AuditTrailID            int identity, /* Auto-increment key field */
  15.   ApplicationID           smallint,     /* Identifies the app originating the event */
  16.   EventID                 smallint,     /* Identifies the event (login, logout, change password, etc.) */
  17.   Timestamp               datetime,     /* Date and time of the event */
  18.   UserID                  integer null, /* Identifies the user originating the event */
  19.   Description             varchar(255)) /* Message associated with event */       
  20. GO
  21. GRANT ALL ON AuditTrail TO Public
  22. GO
  23.  
  24. create procedure ChangePassword(
  25.   @Username    varchar(30),
  26.   @OldPassword varchar(30),
  27.   @NewPassword varchar(30))
  28. as
  29. begin
  30.   declare @Result integer
  31.  
  32.   execute @Result = sp_password @OldPassword, @NewPassword
  33.   if @Result <> 0 
  34.   begin
  35.     raiserror 50001 "Could not change user password"
  36.     return
  37.   end
  38.  
  39.   update Users
  40.     set DateLastPasswordChange = getdate()
  41.     where Username = @username
  42. end
  43. go
  44. grant execute on ChangePassword to Public
  45. go